home *** CD-ROM | disk | FTP | other *** search
/ Nautilus 1992 July / Nautilus-3-8 / Nautilus-3-8.bin / Tools & Utilities / Techy Stuff / Development Environments ƒ / Perl 4.0.2 ƒ / unix / gettest < prev    next >
Encoding:
Text File  |  1992-01-04  |  549 b   |  21 lines
  1. #!./perl
  2.  
  3.     while (($name,$aliases,$addrtype,$length,@addrs) = gethostent) {
  4.     print $name,' ',$aliases,
  5.       sprintf(" %d.%d.%d.%d\n",unpack('CCCC',$addrs[0]));
  6.     last if $i++ > 50;
  7.     }
  8.     <stdin>;
  9.     while (($name,$aliases,$addrtype,$net) = getnetent) {
  10.     print "$name $aliases $addrtype ",sprintf("%08lx",$net),"\n";
  11.     }
  12.     <stdin>;
  13.     while (($name,$aliases,$proto) = getprotoent) {
  14.     print "$name $aliases $proto\n";
  15.     }
  16.     <stdin>;
  17.     while (($name,$aliases,$port,$proto) = getservent) {
  18.     print "$name $aliases $port $proto\n";
  19.     }
  20.  
  21.